(rmail-summary-get-sender): Narrow to current

message before extracting headers.

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index bd174be82e5ee5f089b5c8d6b983fdf52108a9a1..f066523e5068248faf2a2beaebf5e58ced8b10cc 100644 (file)
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -1495,8 +1495,11 @@ If sender matches `rmail-user-mail-address-regexp' or
                         "\\>\\)"))
             sender))
        ;; Either no sender known, or it's this user.
-       (let ((to (rmail-header-get-header "to")))
-         (concat "to: " (mail-strip-quoted-names to)))
+       (save-restriction
+         (narrow-to-region (rmail-desc-get-start n)
+                           (rmail-desc-get-end n))
+         (concat "to: " (mail-strip-quoted-names
+                         (rmail-header-get-header "to"))))
       sender)))
 
 (defun rmail-summary-get-line-count (n)